home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / biz / dbase / sqldb.lzh / sqldb / rexxmacros / sqltest5.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-03-13  |  684 b   |  30 lines
  1. /* sqltest5.rexx */
  2. address 'SQLserver'
  3. options results
  4. 'ExecSQL' 'open table salesreps;'
  5. 'ExecSQL' "declare testcur cursor for select from salesreps where empl_num < 106;"
  6. 'ExecSQL' 'open testcur;'
  7. 'ExecSQL' 'fetch columns of testcur;'
  8. /*trace(results)*/
  9. say 'result = ' result
  10. 'GetLastCode'
  11. say 'sqlcode = ' result
  12. do forever
  13. /*   if result > 0
  14.     then say 'greater than zero'
  15.    if result = 0
  16.     then say 'equal to zero'
  17.    if result < 0
  18.     then say 'less than zero'
  19. */
  20.    if result ~= 0
  21.        then break
  22.    'ExecSQL' 'fetch next of testcur;'
  23.    say 'result = ' result
  24.    'GetLastCode'
  25.    say 'sqlca.sqlcode = ' result
  26. end
  27. 'ExecSQL' 'close testcur;'
  28. 'ExecSQL' 'close table salesreps;'
  29.  
  30.